home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Club Hoorn / ACH ClubDiskette No.24 (1995-06)(Amiga Club Hoorn)(NL).zip / ACH ClubDiskette No.24 (1995-06)(Amiga Club Hoorn)(NL).adf / C / Installer < prev    next >
AmigaDOS Script File  |  1995-02-21  |  956b  |  40 lines
  1. .key Disknummer/A,Disknaam/A,Lhafile/A
  2.  
  3. ; $VER: Lha Script V3.0 (09.01.95) Author: S. Kindervater
  4.  
  5. copy <Disknummer>:c/format to ram:
  6. copy <Disknummer>:c/install to ram:
  7. copy <Disknummer>:c/lha to ram:
  8. copy <Disknummer>:c/endif to ram:
  9. copy <Disknummer>:c/echo to ram:
  10. copy <Disknummer>:c/failat to ram:
  11. copy <Disknummer>:c/endcli to ram:
  12. copy <Disknummer>:c/delete to ram:
  13. copy <Lhafile> to ram:
  14. cd ram:
  15.  
  16. requestchoice >ENV:LhaTemp "Lha Script V3.0" "Kies een drive " "DF0|DF1|Cancel"
  17.  
  18. if val $LHATEMP EQ 1
  19.     Echo "Stop een lege disk in DF0"
  20.     Format Drive DF0: name <Disknaam> NOICONS
  21.     install drive df0:
  22.   Skip End 
  23. endif
  24.  
  25. if val $LHATEMP EQ 2
  26.     Echo "Stop een lege disk in DF1"
  27.     Format Drive DF1: name <Disknaam> NOICONS
  28.     install drive df1:
  29.   Skip end
  30.     else
  31.   Skip lastend
  32. endif
  33.  
  34. lab end
  35. Echo "Uitelkaar halen van de Lha File .."
  36. lha >NIL: e,x ram:<Lhafile> <Disknaam>:
  37.  
  38. Lab lastend
  39. delete >NIL: ram:<Lhafile>
  40. Delete env:LHATemp >NIL: